unit VideoConsts;

interface

uses Windows;

const
  BASEPORT    = 5555;
  LISTENPORT  = BASEPORT;
  CONNECTPORT = BASEPORT;

type
  _SERVER_CTRL_MSG = record
    strCommand        : array [0..99] of Char;
    nContentUsesByte  : DWORD;
    strContent        : array [0..999] of Char;
  end;

  PServerControlInfo = ^TServerControlInfo;
  TServerControlInfo = _SERVER_CTRL_MSG;

  PClientControlInfo = ^TClientControlInfo;
  TClientControlInfo = _SERVER_CTRL_MSG;

  _VIDEO_DATA = record
    bKeyFrame   : Boolean;
    nSampleNum  : DWORD;
    nUsedSize   : DWORD;
    nGetedSize  : DWORD;
    Buf         : array [0..8179] of Byte;
  end;

  PVideoDataInfo = ^TVideoDataInfo;
  TVideoDataInfo = _VIDEO_DATA;

implementation

end.